﻿Imports SpeechLib
Public Class NotePadSpeaking
    Inherits AbsNotePad

    Private spech As New SpVoice()

    Public Overrides Sub Pause()
        spech.Pause()
    End Sub

    Public Overrides Sub Play(ByVal Text As String)
        If Text <> Nothing Then
            spech.Speak(Text, SpeechVoiceSpeakFlags.SVSFlagsAsync)
        End If
    End Sub

    Public Overrides Sub Reload()
        spech.Resume()
    End Sub

    Public Overrides Sub StopPlay()
        spech.Pause()

    End Sub
End Class
